home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wlpeep.zip / WALLPEEP.BAS < prev    next >
BASIC Source File  |  1992-11-24  |  988b  |  28 lines
  1. DefInt A-Z
  2. Declare Function GetActiveWindow Lib "User" ()
  3. Declare Function BitBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)
  4. Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  5. Declare Function GetFocus% Lib "user" ()
  6. Declare Function PutFocus% Lib "user" Alias "SetFocus" (ByVal hWnd%)
  7. Declare Function PatBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal dwRop&)
  8. Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
  9.  
  10. 'Global Const FALSE = 0
  11. 'Global Const TRUE = -1
  12.  
  13. Global Metafile As Integer
  14. Global DirName(1 To 10000) As String
  15. Global Dirs As Integer
  16.  
  17. Global Focus
  18. Global SavedDrive$
  19. Global Loading%
  20.  
  21. Global LBWidth%
  22. Global LBHeight%
  23.  
  24.  
  25.  
  26.  
  27.  
  28.